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L ? 
= ACTIVATE NEXT IMAGE 15-SEP-19 AX/VMS 04- p 
ZrSEC= IEEE Se:55:95 PANLVES Mesce yOseOO © Page 


AUTHOR: STEVE BECKHARDT, CREATION DATE: 26-Sep-1979 
MODIFIED BY: 


v03-001 MSHO05S4 Michael S. Harvey 30-May-1984 
Replace obsolete inoge activator scratch space symbol. 


1 ~TITLE ACTIMAGE = ACTIVATE NEXT IMAGE 
8 ; ~ IDENT een 
: ¢ s evecoceceeeccrcececcececcncencnccennccceeqcccceoeccccooocceeecoocceeoseccees 
3@ ® 
09 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 6B * 
00 8 3* DIGITAL EQUIPMENT for PORATION, MAYNARD. MASSACHUSETTS. * 
44 16 :* ALL RIGHTS RESERVED. * 
P4 ® 
00 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND co tee * 
38 \¢ z* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH License AND WITH THE *® 
0 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®*# 
45 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
44 1g :* TRANSFERRED. - 
0000 8 * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
44 19 ;* AN HOULD NOT BE CONSTRUED AS A COMMITMENT BY PIGITAL EQUIPMENT * 
44 , - CORPORATION. . 
3 e 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
8000 Z ae SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 a 
0000 $ 3* * 
4464 $$ PRRAARAHRAAAAAAA ALAA AAAee AAA ee AeeeeeeeeATe ee tee teeeeteteteneeeeeeeeereeeete 
0000 Hh ; 
0000 9 
sit ? “FACILITY: STANDALONE SYSGEN 
0000 § ABSTRACT: 
0000 This module allows an image to activate another inoge in its 
0000 4 place. The running image is run down and the specified 
sit 2 image is activated. 
0000 38 ENVIRONMENT: User and Exec modes, PO and P1 space 
9 
40 
oi 
2§ 
44 
45 
46 


Soooooooo 
oooooooo 
oooooooo 
Soooooooo 


a7 
ACTINA ~ ACTIVATE NEXT IMAGE 15-SEP=1986 23:37:27 YAX/VMS Macro _V04-00 p 
vo4=000 DECLARATIONS erSEb= 1984 S3:00:12 LBoorsssneiactinace mar:1 "28° (3, 


48 «SBTTL DECLARATIONS 
0 : INCLUDE FILES: 
BS : : 
09 , 3 
0 4 : MACROS: 
00 5 3 
3 
$09 8 ; EQUATED SYMBOLS: 
$00 80° 
000 61; 
0000 6¢ + OWN STORAGE: 
9000 63 ; 
00 64 
0000 §=« 65 
00000000 4=s-«66 -PSECT BOOSACTIMAGE,RD,NOWRT EXE 


ACTIMA 
tore 


50.01 

5E_ 00000000°9F40 00 
56 00000000°9F 9€E 
24° 28 
D0 

17 


gE 'AF 
5 04 AC 
66 


33:00:92 


AX/VMS Macro Vv04-00 


Page 
BOOTS. SRCJACTIMAGE .MAR; 1 


This routine runs down the current snoge and activates the 


VATE NEXT IMAGE ot 138% 
TIMAGE -SEP=-1984 
G ae -SBTTL BOOSACTIMAGE 
3 $3 * FUNCTIONAL DESCRIPTION: 
00 : 
$09 re 3 specified image. 
000 74 ; inege header buffer 
4 75 3: This code sets up the inege 
44 ; and then jumps into PROCSTRT 
0900 4 3 CALLING SEQUENCE: 
0900 Bo 3 CALLS BOOSACTIMAGE 
0000 B : INPUT PARAMETERS: 
0000 835 ; 
0000 84 ; 4 (AP) 
0000 85 ; 
0000 86 ; IMPLICIT INPUTS: 
0000 87 ; 
0000 88 ; NONE 
0000 89 ; 
0000 90 ; OUTPUT PARAMETERS: 
0000 91; 
0000 3 3 NONE 
0000 93 ; 
0000 94 ; IMPLICIT OUTPUTS: 
0000 95 ; 
0000 96 ; NONE 
0000 97 ; 
0000 98 ; COMPLETION CODES: 
0000 99 ; 
0000 100; NONE 
0000 101; 
0000 19 3 SIDE EFFECTS: 
0000 103; 
0000 104; NONE 
0000 105; 
0000 106 ;-- 
0000 107 
0000 108 BOOSACTIMAGE:: 
0000 109 .WORD 
BOOS 110 
000 111 SCMEXEC_S B*10$, (AP) 
QO00E iM RET 
OOOF 11 
OOOF 114 108: eWORD “M<RZ2,R3,R4,R5,R6> 
Bet 115 
011 138 MOVL 
014 11 MOVL SPC TT SAL _STACKCROJ, SP 
0038 118 MOVAB a#1ACSAL_ IMGACTBUF ,R6 
00 120 MOVC3 Fc SCOSI FE 8°08. (RG) 
0028 \$) MOVL 4C(AP),R 
002C 1 ¢ JMP ( 
O02E 12 
O02E 124 


208: 3 


It does this by copy 
in the control reg ion and 
name in the 


he code re the 
panes ng to it. 


iooge, eader buffer 


to activate the image. 


Address of image name descriptor 


Change to exec mode 
Should never return here 


Exec mode 

Reset exec stack 

Get address of image activator 
scratch area 

Move code 

Get address of image name descriptor 
Jump to moved code 


3d 


— 


6 8 
| ACTIMAGE = ACTIVATE NEXT IMAGE 15-SEP-1984 23:37:27 VAX/VMS Macro V04-00 Page 
| 04-000 BOOSACT IMAGE 2rSE py 98¢ 33:00;%3 taoors sre ACT!IMAGE .MAR; 1 . 
| QO2E 125 ; This code doesn't get executed here. Rather, it is moved 
O2E 126 ; into the image activator scratch area in the control region 
8 : : f ; and executed there. 
5C Q0000000'9F DE 00 3 129 MOVAL @#MMGSIMGHDRBUF ,AP ; Make AP point to image hdr buffer 
DO 00 139 MOVL R5), (AP) ; Move size of image name 
04 AC 08 AC bf 038 131 MOVA 8 (APS 4 (AP ; Set up pointer to image name 
08 AC 04 85 2 0 B 1 ¢ MOVC (AP) ,84(R5) ,8(AP) ; Move image name 
DD 004 1 PUSHL #3 ; Access mode to run down (user) 
00000000 ° GF 1 FB 0045 134 CALLS #1,G*SYSS$RU ; Run down user mode 
00000000°GF 17 d04¢ 135 JMP G*EXESPROCIMGACT ; Activate image 
09000024 $085 139 CDSIZE = .-20$ ; Size of code to move 
0052 138 
0052 139 
0052 140 
0C52 = 141 -END 


ACTIMAGE = ACTIVATE NEXT IMAGE os at 9 33:32:93 a Macro v04-00 Page 3 
Symbol table 44-SEP-1984 25:02:12 (CBOOTS.SRCJACTIMAGE.MAR;1 (3) 
BOOSACT IMAGE Hatt RG 01 
ke ze = 00000024 
CTLSAL_STACK eeeeeene x 4 
EXESPROCIMGA ACT eeeeeeee § 1 
IACSAL IRGAC TOUT eeneeree =X = 0] 
MMG$ IMGHDRBUF eeeeeeee =X 8 01 
SYSSCMEXEC weeeeeee GX 01 
SYSSRUNDWN eeeeneee =X 8 0] 

$m mee eececese = om won 

! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
» OS. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BOOSACT IMAGE 00000052 (¢ 82.) 01 1.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

pew mrs ecaeco eon ens e reece aes + 
! 1 Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 17 0:00:00.10 00:00:01.33 
zonnens processing 96 0:00:00.73 00:00:05.57 
72 00:00:00.61 00:00:02.41 

Su ebol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 32 00:00:00.30 00:00:00.67 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 220 00:00:01.78 00:00:10.02 


The working set Limit was 1200 pages. 

1796 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 2 Local symbols. 
141 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


eres ereeee ese meee seca sore a} 


Macro Library name 


_8255$DUA28: B00TS. OBJJBOOTS.MLB;1 0 
“$255$DUA28:CSYS.OBJJLIB.MLB; 1 0 
“$255$DUA28: Sve seietaniey” MLB; 2 5 
TOTALS (all Libraries) 


13 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ACTIMAGE/OBJ=O0BJ$:ACTIMAGE MSRC$:ACTIMAGE/UPDATE=(ENHS:ACT IMAGE) +EXECML$/LIB+L 18$:B00TS.MLB/LIB 
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